5 DV=PEEK(186):IFDV<8THENDV=8
10 GOSUB200
20 SYS57812"F.FONT STUDIO",DV,0:POKE780,.:POKE781,.:POKE782,40:SYS65493
30 SYS57812"FS.SPRITES",DV,0:POKE780,.:POKE781,.:POKE782,48:SYS65493
40 SYS57812"FS.ZIP1",DV,0:POKE780,.:POKE781,.:POKE782,192:SYS65493
50 SYS57812"FS.ZIP2",DV,0:POKE780,.:POKE781,.:POKE782,64:SYS65493
60 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
70 SYS51328,53248,14336,2048:SYS51328,10240,14336,8:SYS51328,10456,14552,40
80 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
90 PRINT"[144]LOAD"CHR$(34)"FONT STUDIO"CHR$(34)","DV
100 PRINT:PRINT:PRINT:PRINT:PRINT"RUN"
110 POKE44,88:POKE22528,0:POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
200 POKE53281,.:POKE53280,.:PRINT"[147]"
210 POKE214,7:PRINT
220 PRINT"[162][162]"TAB(37)"[162][162]"
225 PRINT"[152]  "TAB(37)"  "
230 FORI=.TO11:PRINT"[152]  [155][165]                                [167][152]  ":NEXT
235 PRINT"[152]  "TAB(37)"  "
240 PRINT"[162][162]"TAB(37)"[162][162]"
250 POKE214,10:PRINT
260 FORI=.TO7:READA$:PRINTTAB(20-LEN(A$)/2)"[155]"A$:NEXT
270 RETURN
1000 DATA "[198][207][206][212][160][211][212][213][196][201][207]"
1010 DATA "BY [193]NTHONY [210]OSE"
1020 DATA "(C) 1996 BY [202] & [198] [208]UBLISHING"
1030 DATA "[212]HIS IS THE COPYRIGHTED WORK"
1040 DATA "OF [202] & [198] [208]UBLISHING."
1050 DATA "[201]T IS NOT SHAREWARE OR IN"
1060 DATA "THE PUBLIC DOMAIN."
1070 DATA "[212]O SUBSCRIBE CALL 1-800-594-3370"